www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\showmsg.asp

    <!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/Cls_Class2.asp"-->
<!--#include file="Include/Cls_Class.asp"-->
<!--#include file="Include/header.asp"-->



<%
Dim Default
set Default = New Cls_Default
Call Default.Get_Search()


Response.Write("</div>"&vbcr)
webParmter="公告信息"
Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>")%>


<div id="mainWrapper" class="clear" style="min-height:260px;background:#C9F1FF;);">
	<div class="wording">
	</div>
	<div class="loginBox">
<%


	set ShowMsg = New Cls_ShowMsg2	
	Msg_ID = Request("Msg_ID")
	if Msg_ID = "" or IsNumerIC(Msg_ID)=false then
		Response.Redirect("index.asp")
	end if
	Set Rs_Msg = Server.CreateObject("adodb.recordset")
	Sql = "Select * from Liangjing_Message Where Msg_IsOver=false and Msg_ID="&Msg_ID
	Rs_Msg.open sql,conn

	if Rs_Msg.eof then
		Call Wodig.MsgBox2("消息不存在或已经被删除！",0,"0")
		Response.End()
	end if	
	Response.Write("<table width='"&Web_TPageWidth&"' height='20'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
	  Response.Write("<tr><td height=""12""></td></tr><tr>"&vbcr)
		Response.Write("<td height='20' class='ptttd1'>&nbsp;网站公告:"&Rs_Msg("Msg_Title")&"</td>"&vbcr)
	  Response.Write("</tr>"&vbcr)
	Response.Write("</table>"&vbcr)
	Response.Write("<table width='"&Web_TPageWidth&"'  border='0' align='center' cellpadding='0' cellspacing='0'>"&vbcr)
	  Response.Write("<tr>"&vbcr)
		Response.Write("<td valign='top'>"&vbcr)
		Call ShowMsg.Get_ShowMsg
%>
<div style="">
<script type="text/javascript"><!--
google_ad_client = "pub-3406709034811813";
/* 468x60, 创建于 08-10-8 */
google_ad_slot = "5358810018";
google_ad_width = 468;
google_ad_height = 60;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
<br>
</div>
<%
		Response.Write("</td>"&vbcr)
		Response.Write("<td width='1' valign='top' bgcolor='#E1E1E1'></td>"&vbcr)
		Response.Write("<td width='"&Web_RightWidth-50&"' valign='top'><table width='98%' height='100'  border='0' align='center' cellpadding='0' cellspacing='1'>"&vbcr)
			Response.Write("<tr>"&vbcr)
			  Response.Write("<td >"&vbcr)

Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<div style=""margin-left:12px;""><img src='Images/ico_blog.gif' width='16' height='16' /><font style=""font-size:14px;font-weight:bold;"">博友自定义标签</font>&nbsp;<a href='tags.asp'>更多标签>></a></div>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call Default.Get_UserTags	
Response.Write("</ul></div>"&vbcr)

Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='Images/ico_blog.gif' width='16' height='16' />分享最多的博友</h3>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call Default.Get_TopUser 
Response.Write("</ul></div>"&vbcr)


Response.Write("<div class=""SC"">"&vbcr)
Response.Write("<h3><img src='Images/ico_blog.gif' width='16' height='16' />最新加入良精微博网好友</h3>"&vbcr)
Response.Write("<ul id=""gzTopic"" class=""FTL"">"&vbcr)
	Call Default.Get_NewUser 
Response.Write("</ul></div>"&vbcr)

			  Response.Write("</td>"&vbcr)
			Response.Write("</tr>"&vbcr)
		  Response.Write("</table>"&vbcr)
		  Response.Write("<br />"&vbcr)
		Response.Write("</td>"&vbcr)
	  Response.Write("</tr>"&vbcr)
	Response.Write("</table>"&vbcr)
Set Default = Nothing
%>
</div>
</div>
<%Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)%>
<!--#include file="Include/footer.asp"-->